home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00007_Script_region < prev    next >
Text File  |  1995-11-16  |  729b  |  41 lines
  1. -- standard button trios
  2. property rOffset, rFrame--,  rLabel
  3.  
  4. on birth me, theLabel, theOffset
  5.   --set rLabel to theLabel
  6.   set rOffset to integer(theOffset)
  7.   set rFrame to label(theLabel)+rOffset
  8.   return me
  9. end
  10.  
  11. --change appearance
  12. on rollo me
  13.   --put ">>>going to frame"&&rFrame&&rLabel&&rOffset
  14.   if marker(0) = label("SS") then
  15.     set f = ((the frame - marker(0))/2)*2+rOffset+marker(0)
  16.     if f <> the frame then 
  17.       go frame f
  18.     end if
  19.   else 
  20.     if rFrame <> the frame then 
  21.       go frame rFrame
  22.     end if
  23.   end if
  24.   
  25.   --go frame label(rLabel)+rOffset
  26. end
  27.  
  28. on r me
  29.   return theFrame
  30. end
  31.  
  32. on doRollOverMe me
  33.   return 1
  34. end
  35.  
  36. on doHiLiteMe me
  37.   return 0
  38. end
  39.  
  40. on norm me
  41. end